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ABSTRACT 



This thesis integrates an IBM-PC/AT microcomputer with five pieces 
of standard laboratory test equipment via a GPIB. A menu-driven program 
prompts the user to operate the test equipment from the keyboard on the 
PC. The user can perform a wide variety of tasks with this program and 
the program can be modified to perform other specific tasks desired by 
the user. 

Two subroutines were developed to demonstrate the utility of this 
system and the use of the programming guidelines that were developed. A 
subroutine to collect waveform data from a digital oscilloscope and to 
plot the waveform with a plotter and a subroutine to generate a Bode 
plot of the transfer function for a two port network were developed. 
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I. INTRODUCTION 



This thesis investigated the use of an IBM- PC/AT microcomputer as 
a system controller for a set of programmable test equipment. It is the 
third in a series of theses that address the subject of using programma- 
ble test equipment for simple lab tests. The PC controls the equipment 
via a General Purpose Interface Bus (GPIB) . Previous theses written at 
the Naval Postgraduate School (NPS) [Refs. 1 and 2] give detailed infor- 
mation about the GPIB and the test equipment used. 

The HP-85 microcomputer used in the previous theses was replaced by 
the IBM-PC. The HP-85 is programmed to control via its Hewlett Packard 
Instrument Bus (HPIB) in BASIC. This limits the use of the HP- 85 to 
programs developed on it in its particular version of BASIC. The pro- 
grams written for the HP-85 are not transportable to different com- 
puters. The use of peripheral equipment such as printers and plotters 
is also restricted, making the HP-85 less flexible and powerful. 

The PC can be programmed in a variety of languages, such as FORTRAN, 
PASCAL, and C to control equipment on a GPIB. The PC can also be used 
with a variety of peripherals to print, plot, store, manipulate, and 
display data. The use of the MS-DOS operating system also gives the PC 
a lot more flexibility as programs developed for the PC can be run on 
many similar computers that use MS-DOS. 

The project undertaken here was to establish control of the various 
pieces of test equipment and operate them using an interactive menu- 
driven program running on the PC. The scope of control was to enable 
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the simple electronic engineering laboratory exercises taught at NPS to 
be implemented on the system. The user steps through a series of device 
menus to operate the test equipment and rarely has to adjust controls on 
the test equipment. 
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II. HARDWARE 



This study made use of the following test equipment: 

1. TEK PS 5010 Programmable Power Supply 

2. TEK DM 5010 Programmable Digital Multimeter 

3. TEK DC 5009 Programmable Universal Counter/Timer 

4. TEK 5223 Digitizing Oscilloscope 

5. WAVETEK MODEL 270 Programmable Function Generator 

Detailed information about these five pieces of equipment is avail- 
able in Ref. 1 and Ref. 2 as well as the manufacturers' technical 
documentation for the equipment. 

This equipment was connected to the PC via a National Instruments 
IEEE-488 Instrument Interface. This chapter describes the pertinent 
hardware issues of the computer and the control board as they relate to 
this thesis. 

A. IBM- PC/AT MICROCOMPUTER 

In this study a PC was used as the GPIB controller. The large 30 
megabyte capacity of the hard disk is needed to support the storage for 
a full featured programming language compiler. Without it, compiling a 
large program in a high level language degenerates into floppy swapping 
and becomes a real burden during the development of a large application 
program . 
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The PC does not have a GPIB connector and the required circuitry as 
standard equipment. It does come with several I/O slots that can accept 
a number of GPIB interfaces made by such companies as Tektronix, Capital 
Equipment Corporation, Hewlett Packard, and National Instruments to name 
a few. 

B. NATIONAL INSTRUMENTS MODEL GPIB-PC2 

A National Instruments Model GPIB-PC2 interface board was used to 
provide the hardware and software interface between the PC and the test 
equipment on the GPIB. Figure 2.1 is a photograph of this circuit 
board. It fits into one of the small slots of the PC and enables the PC 
to communicate with devices on the GPIB. Figure 2.2 is a functional 
block diagram of this circuit board. 

The switches and jumpers on the card are used to configure it to 
work in a particular PC environment. The factory default setting of a 
base I/O address of 2B8 , DMA Channel 1, and Interrupt Line (IRQ) for a 
GPIB TLC (Talker/Listener/Controller) of 7. These can be changed as 
needed when other devices already using these settings have been pre- 
viously installed in a PC. The GPIB-PC User Manual contains detailed 
information on how to change these settings. 

This circuit board can support up to sixteen devices on the GPIB and 
work in conjunction with another GPIB-PC2 card installed in the same PC 
to control another sixteen devices. This gives the PC the capacity to 
control up to thirty-two devices without another computer in the system. 
Figure 2.3 is a block diagram of how this system was configured. 
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Figure 2.1 National Instruments GPIB-PC2 Circuit Board 
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Figure 2 




.2 



GPIB-PC2 Functional Block 



Diagram (From Ref. 



3) 
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personal COMPUTER 



Figure 2.3 Block Diagram of Developed System 
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III. 



SOFTWARE 



The circuit board provided by National Instruments (NI) comes with a 
software package that provides the DOS handler, language interface, 
installation package, and system configuration programs. The following 
programs were provided by NI : 

1. GPIB.COM 

2. IBSTART.BAT 

3. MKCFG.EXE 

4. IBSTA.EXE 

3. IBSTB.EXE 

6. IBDIAG.EXE 

7. IBTEST.BAT 

8. IBIC.EXE 

Additional files are delivered for each language support option 
requested. To support programs written in Microsoft -FORTRAN 3.2 the 
following files were provided: 

1. MFIB.OBJ 

2. DECL. FOR 

3. DFSAMP . FOR 

4. BFSAMP . FOR 

This chapter describes how these programs work and how software was 
developed to enable the PC to act as a GPIB controller. 
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A. DOS HANDLER 



The file called GPIB.COM is loaded when the PC boots up. GPIB.COM 
is required to reside on the default boot drive to enable it to be 
installed during boot up. The term 'handler' is used by National In- 
struments to refer to a loadable device driver. DOS uses the DEVICE^ 
command in a file called CONFIG.SYS to load the desired device drivers 
when the PC first boots up. GPIB.COM contains the software needed to 
operate the GPIB-PC2 circuit board as a GPIB I/O device. 

B. INSTALLATION, CONFIGURATION, AND START-UP 

The file IBSTART.BAT is a DOS BATCH command file that installs the 
software provided by NI . It copies the needed files off the floppy disk 
from NI and puts them on the desired disk. In this study the default 
disk drive is the PC hard disk, C:\, and the NI files were copied to a 
sub-directory, C:\GPIB-PC. GPIB.COM and IBCONF.EXE were then copied to 
the default drive C:\ as these files must reside in the default drive to 
operate properly. IBSTART.BAT adds the DOS command DEVICE=GPIB . COM to 
CONFIG.SYS by using the file MKCFG.EXE. The file IBDIAG.EXE is used to 
test the hardware before the associated software is installed. 

Once the hardware and handler are installed, the file IBTEST.BAT is 
used to test both the hardware and software for proper installation and 
operation. This test is done in two parts by running IBSTA.EXE and 
IBSTB.EXE. All the tests are menu-driven and take only a few minutes to 
execute . 
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C. IBCONF 



The file IBCONF.EXE is very useful even after the system is initial- 
ly installed, as it allows devices to be added and deleted from the GPIB 
very easily. This routine helps to handle the specific details of 
setting up such things as GPIB addresses, system mnemonics, and end of 
instruction characters . 

IBCONF runs as an interactive menu- driven program that has the user 
specify the device characteristics needed by the handler to properly 
address and communicate with a device on the GPIB. Figure 3.1 shows the 
first menu that is displayed when the program is run. Once a device on 
the bus is selected, the second menu (shown in Figure 3.2) is displayed 
and the user can change the GPIB attributes of device as required. If a 
change is made to a device's attributes in IBCONF, the PC must be 
rebooted so that the modified handler can be re-installed by DOS. 
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-GPIBO 



* Use cursor control keys to select a device or board 

* Use function keys below to select desired action 

* Use PgUp/PgDn to display maps for other boards 



■PS 


SIGGEN 


DEV9 


DEV13 


■DMM 


DEV6 


DEV10 


DEV14 


•DC5009 


DEV7 


DEV11 


DEV15 


OSCOPE 


DEV8 


DEV12 


DEV16 



FI: Help F4 -.Rename F5 : (Dis)connect F8 : Edit 

Figure 3.1 First Menu in IBCONF 



F9 : Exit 
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National Instruments 


Device Characteristics 


IBM PC -AT 


Device: PS Access :GPIB0 


SELECT (use right/left arrow keys) : 


Primary GPIB Address 16H 

Secondary GPIB Address NONE 

Timeout setting TIOs 

EOS byte 00H 

Terminate Read on EOS no 

Set EOI with EOS on Write . . no 

Type of compare on EOS 7 -bit 

Set EOI w/last byte of Write yes 


00H to 1EH 



FI: Help F4 : Explain Field F6: Reset Value F9 : Return to Map 



Figure 3.2 Second Menu in IBCONF 



D. USE OF IBIC 

IBIC is the Interface Bus Interactive Control Program (IBIC). This 
program provides keyboard control of the GPIB and connected equipment. 
IBIC functions include most IEEE-488 commands, the functions supplied 
for specific language interfaces, and some functions specific to IBIC. 

The functions allow the user to send a specific command to a device, 
to receive data (in the form of character strings) from the devices, and 
to display the data received on the PC screen. Data can also be saved 
to a file named in DOS path name convention. This allows a user to 
generate the correct command sequence to perform a specific task. It 
was used extensively in this study as the commands for each device are 
peculiar to that specific device. Practice is required for a user to 
become familiar with a device's command structure and IBIC is a good 
practice tool. 
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When IBIC is running, messages appear on the screen prompting the 
user to enter commands, data, or request help as needed. The commands 
used most are IBFIND , IBWRT, IBRD. 

IBFIND is used to select a device on the GPIB. For example, to 
select a digital multimeter with the device mnemonic DMM installed via 
IBCONF the user could enter the following at the colon prompt: 

: IBFIND DMM 

IBWRT is used to send command strings to devices over the GPIB. To 
have the multimeter read resistance the following command might be 
entered at the DMM: prompt: 

DMM: IBWRT ” OHMS' 1 

IBRD is used to read data from a device over the GPIB and display it 
on the screen. The number of bytes to be read are specified when the 
command is used as shown in the following example to read fifty bytes: 
DMM: IBRD 50 

The previous command results in the following display when the 

multimeter is measuring the resistance of an open circuit: 

[2900] ( end rqs cmpl ) 

count: 9 

31 2E 45 25 39 39 3B 0D l.E+99;* 

0A * 

DMM: 

The first line of the above message is the status word IBSTA that 
describes the status of the GPIB in two forms: a hexadecimal value 
followed by a mnemonics list. The second line contains the actual 
number of bytes received from the device over the GPIB, in this case 9. 



19 



The next two lines contain the received characters and their ASCII 
codes. In this example l.E+99 represents the infinite impedance of an 
open circuit. The two asterisks represent the two small diamond 
characters that actually appear on the display. These represent the 
carriage return and line feed indicated by the ASCII codes OD and OA in 
the third line of the display. The fourth line is the prompt, DMM: , for 
the next command. 

More specific information and additional examples are contained in 
Reference 3 Section 5. 

E. PROGRAMMING LANGUAGE INTERFACE 

MFIB.OBJ is the Microsoft FORTRAN 3.2 language interface that en- 
ables that particular version of a FORTRAN application program to use 
subroutine calls that make use of the handler supplied by NI . Programs 
compiled with MS -FORTRAN 3.2 are linked with MFIB.OBJ to produce an 
executable file. MFIB.OBJ must not be the first file named in the link 
list when linking the application program. 

Similar to IBIC, the most commonly used subroutines and functions 
are IBFIND , IBWRT , and IBRDF. 

IBFIND is a function used to find the address of a device that has 
been installed on the GPIB via IBCONF. The integer returned is assigned 
to a variable that must be used in all references to that device in GPIB 
subroutine and function calls. The following is an example of how to 
use IBFIND in a FORTRAN program to assign the address of the multimeter 
to the integer variable DMM: 

DMM = IBFIND ( ' DMM ' ) 
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(The software provided by NI requires the last character in a string be 
a blank to indicate the end of a string.) 

IBWRT writes data to a GPIB device. It has three parameters: the 

device address, the data to be sent contained in an integer vector, and 

the number of bytes to be sent. The following is an example to command 

a digital multimeter to read resistance from a FORTRAN program: 

WRT(l) = ICHAR('O') 4 - ICHAR('H')*256 
WRT ( 2 ) = ICHAR( ' M ' ) + ICHAR( ' S ' )*256 
CALL IBWRT ( DMM , WRT , 4 ) 

NI requires character strings to be entered as shown to be compati- 
ble with the handler GPIB.COM. Characters are represented in FORTRAN 
programs run on the PC in memory as two bytes in low order byte then 
high order byte convention. The first two lines above squeeze two 
characters into one sixteen bit word and convert the characters to high 
order byte then low order byte convention. This word is transmitted 
over the GPIB as two sequential eight bit bytes that contain the charac- 
ter codes in the correct order to be used by devices on the GPIB. 

Writing code in this way for every command string is very tedious. 
The subroutine STRING, shown in the following FORTRAN program listing, 
was written to put character strings into the integer array format 
required to be used with IBWRT. An explanation of this subroutine 
follows : 

SUBROUTINE STRING ( INPUT , LENGTH , WRT) 
c***** THIS CONVERTS CHARACTER STRINGS INTO REQUIRED FORM FOR IBWRT ** 
CHARACTER* 1 INPUT (30) 

INTEGER LENGTH , I , J , K , WRT (512) 

J= 1 

DO 10 1=1, LENGTH, 2 
K= 1+1 

WRT ( J)= I CHAR ( INPUT ( I) ) + ( I CHAR ( INPUT (K) )*256) 
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10 



J= J+l 



CONTINUE 
RETURN 
END 

The code: 

SUBROUTINE STRING (INPUT, LENGTH, WRT) 

CHARACTER* 1 INPUT (30) 

INTEGER LENGTH, I, J,K, WRT (5 12) 

J= 1 

establishes the subroutine STRING with the formal parameters: INPUT, 

LENGTH, and WRT. INPUT is the character string to be modified and 
LENGTH is the number of characters in the STRING. WRT is the integer 
array returned by STRING to be used with IBWRT. I, J, and K are the 
indices of the arrays INPUT and WRT. 

The code : 

DO 10 1=1, LENGTH, 2 
K» 1+1 

WRT(J)= ICHAR(INPUT(I) ) + ( ICHAR( INPUT (K) ) *256) 

J= J+l 

10 CONTINUE 

takes the elements of INPUT in pairs and performs the operation needed 
to generate the elements of WRT. 

IBRDF reads data to a file. It has two parameters: the device name 

and the filename under which the data is stored. An example of how to 
read a resistance value from the multimeter at address DMM and store it 
in a file called DATA on the A: disk in a FORTRAN program follows: 

CALL IBRDF (DMM, 'A: DATA ') 

The DECL.FOR is a file of FORTRAN variable declarations recommended 
for use by NI and is included as Appendix A. The three global variables 
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IBSTA, IBERR, and IBCNT must be used in all FORTRAN programs to enable 
the GPIB status, any detected bus errors, and the number of bytes trans- 
mitted during a message to be available from the handler. These 
variables are updated after each subroutine call to reflect the status 
of the most recently referenced device and the status of the GPIB. 

IBSTA is the status word returned by all functions. This contains 
information about the GPIB status. It can be used to check for proper 
bus operation and bus status such as I/O complete or a device requests 
service . 

IBERR is the error variable containing the error code when an error 
is detected. The error codes indicate such problems DOS errors, invalid 
arguments to function calls, or file system errors. 

The IBCNT variable is updated after each read or write is executed. 
It contains the number of bytes transferred during the last read or 
write . 

The program listing in Appendix B was generated making use of these 
variables and functions. There are many more functions and variables 
available. A user can also write new functions and specify new vari- 
ables if needed. 

The two files DFSAMP.FOR and BFSAMP . FOR are example programs provide 
by NI that show how to write application programs that make use of the 
subroutines provided in MFIB.OBJ. 
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F. PLOTTING PACKAGE 



The plotting package SlideWrite Plus produced by Advanced Graphics 
Software was used for all waveform and data plots in this study. It is 
one of the many plotting packages available for use with the PC. 
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IV. DEVELOPMENT OF THE SYSTEM CONTROLLER 



The goal of this study was to develop a system for use in student 
laboratory environment as a teaching aid. Students at NPS could run 
programs on a computer connected to various pieces of lab test equip- 
ment. The student would perform circuit tests and demonstrations of 
class room theory through menus displayed on the computer monitor. 
Students would set up and control instruments by typing in responses on 
the computer keyboard. Previously written and stored programs could put 
waveforms on the monitor or the digitized oscilloscope, check data 
values at test points for correct values, and record and store data 
automatically for later use. Off-the-shelf software would be used for 
analyzing and plotting the recorded data. 

With these goals in mind a set of design guidelines were developed. 
This chapter describes these guidelines and details the software that 
was developed. 

A. DESIGN GUIDELINES 

Design of this system was undertaken as a top-down, structured 
programming implementation. A top-down structure was chosen early in 
the study. This enabled a gradual system development starting with the 
most essential program features first and then progressing to more 
complicated functions. To this end, step-wise refinement was used 
extens ively . 

The concept of modular programming was followed. All new functions 
were added as subroutines that would not affect the code previously 
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written and tested. These new functions were kept simple so as to be 
short. This limited the size of a program module that had to be writ- 
ten, tested, and debugged to a manageable size. 

All control of the test equipment was to be via the computer key- 
board. The student would not have to adjust the equipment by hand. 
Menus on the computer monitor would give instructions to the student as 
required. 

B. EARLY EFFORTS WITH BASICA 

National Instruments provides a handler package to be used with 
BASICA. (BASICA is an enhanced BASIC written for the IBM/PC by Micro- 
soft.) Early in this study, this handler was used with some simple test 
programs written in BASICA. These programs were found to be very slow 
during run time since BASICA is an interpretative language. In addition 
these BASICA programs were not transportable to all IBM/PC compatible 
computers. Due to these limitations another programming language was 
selected. 

C. SELECTION OF FORTRAN 77 

A language having separate compilation was desired to facilitate the 
modular programming style desired. It was anticipated that the analysis 
on data collected by the system could be handled most advantageously by 
using the some of the many subroutines already developed and available 
in FORTRAN libraries. A FORTRAN 77 subset compiler suitable for use on 
an IBM/PC was available in the lab for use and was selected as the 
system development language. This was Microsoft- FORTRAN 3.2. 
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D. THE DEVELOPED PROGRAM - GPIBX 



The final program developed, GPIBX, is included as Appendix B. Once 
compiled as an executable file it requires around 100K bytes of RAM. 
Execution of most commands appears to be immediate to the user. The 
demonstration subroutines entail some delay due to the number of opera- 
tions being performed sequentially and the disk I/O for storage being 
performed. 

The program presents the user with a series of menus that enable the 
user to remotely operate most of the front panel controls available on 
the different pieces of test equipment. After a piece of equipment is 
selected, a new menu specific to that piece of equipment is presented. 
The user can then select a particular operation to perform or setting to 
adjust. Specific values for voltages or frequencies can be entered via 
the PC keyboard. Numbers can be entered in scientific notation to save 
time . 

The program only accepts certain responses depending on the menu 
selections available. It prompts the user to try again when invalid 
responses are entered. Settings outside the range of the equipment are 
ignored. 

Control of the different pieces of equipment is accomplished one 
level at a time. First, the device is selected from a main menu. Then 
the user selects a particular feature of the device to adjust or oper- 
ate. The menus presented to the user proceed in one level of control 
each time. The user can back-up one level of control at any time. To 
switch devices a user must back out to the main menu level and then 
select another device. This prevents a user from jumping around the 



27 



menus and inadvertently adjusting the wrong piece of equipment. A 
single point of return for each subroutine enforces this run time 
operation. 



E. PROGRAMMING PROBLEMS ENCOUNTERED 

MS-FORTRAN 3.2 was not the best language to use for development of 
this system. The bulk of the programming required character string 
manipulations. A full featured ANSI FORTRAN 77 compiler may have been 
satisfactory but MS-FORTRAN 3.2 is a subset and does not have some of 
the FORTRAN 77 character string handling features that were needed. 

The first programming problem found was the lack of substring sup- 
port. Device commands are typically a string of characters specifying 
an operation and a data value to use. Building these strings could be 
handled in FORTRAN 77 by concatenating substrings. Since neither sub- 
strings nor string concatenation is available in MS-FORTRAN 3.2, blocks 
of code had to be written for each operation similar to the following 
listing of a subroutine in GPIBX. An explanation follows: 

SUBROUTINE FREQ 

C***** THIS MAKES THE SIGGEN OUTPUT A SPECIFIED FREQUENCY ***** 

INTEGER D VM , I , WRT (512) 

CHARACTER* 1 FREQ ( 13 ), INPUT (11) 

C 

FREQ(1)= 'F' 

FREQ( 13 )= 'I # 

C 

DVM= IBFIND ( ' SIGGEN ' ) 

WRITE (*,10) 

10 FORMAT ( ' 0 ' , 9X , ' ENTER DESIRED FREQUENCY AS XX.XEX ( . 01Hz - 12MHz ) ' ) 

C 

READ (*,20) INPUT 
20 FORMAT (11A1) 

C 

DO 30 1= 1,11 

FREQ(I+1)= INPUT (I) 

30 CONTINUE 



28 



c 

CALL STRING ( FREQ , 13 , WRT) 

CALL IB WRT (DVM, WRT, 13) 

RETURN 

END 

The code : 

SUBROUTINE FREQ 
INTEGER D VM , I , WRT (512) 

CHARACTER- 1 FREQ( 13 ) , INPUT ( 11) 

establishes the subroutine FREQ and declares the variables used in the 

subroutine, DVM (DeVice Mnemonic) is a variable used to contain the 

integer representation of a device address on the GPIB. I is a variable 

used for the index of the arrays declared. WRT is the integer array 

containing the command string to be sent over the GPIB by the subroutine 

IBWRT. It has 512 as its upper dimension limit to enable it to accept 

as large a string as needed. 

The code: 

FREQ( 1)= 'F' 

FREQ (13)= ' I ' 

puts a ' F' in the first element of FREQ and an 'I' in the last element 
of FREQ. The WAVETEK MODEL 270 Programmable Function Generator has a 
command string format for selecting frequencies that require the first 
character to be a 'F' followed by characters that specify the desired 
frequency, such as '100000' or ' 1E5 ' for 100 KHz. If the last character 

in the string is an 'I' then the command is executed immediately. 

The code : 

DVM= IBFIND( ' SIGGEN ') 

uses the function IBFIND to place the integer representation of the 
address of the device SIGGEN (signal generator) in the variable DVM. 
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The code : 



WRITE (*,10) 

10 FORMAT ( ' 0 ' , 9X , ' ENTER DESIRED FREQUENCY AS XX.XEX ( . 01Hz - 12MHz ) ' ) 

READ (*,20) INPUT 
20 FORMAT (11A1) 

generates an on-screen menu that requests the user to enter a frequency 

via the keyboard. 

The code: 

DO 30 1= 1,11 

FREQ(I+1)- INPUT ( I ) 

30 CONTINUE 

builds command strings using previously stored characters and those 
entered by the user. 

The code: 

CALL STRING (FREQ , 13 , WRT) 

CALL IB WRT (DVM,WRT,13) 

RETURN 

END 

uses the subroutine STRING to put the command string FREQ in the form 
required for use with the subroutine IBWRT. IBWRT sends the integer 
array WRT that represents the command string in FREQ to the device 
identified by the variable DVM. The 13 is the number of bytes to be 
transferred and is required for both STRING and IBWRT. 

The subroutine IBWRT has three parameters. It requires the GPIB 
address of where the message is going, the integer vector to be passed, 
and the number of characters represented in the integer vector being 
passed. MS -FORTRAN 3.2 does not have an intrinsic function to return 
the length of a string. The programmer must keep track of the length of 
strings being passed. In some cases the length of a string depends on 
run-time input from the user. To cover all the possible cases the 
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character string variables used to input command strings are larger than 
always needed. This adversely affects both memory requirements and run- 
time efficiencies . 

The most difficult problem encountered was reading data returned 
from a device. The subroutine IBRDF reads data from a device into a 
file. If the file did not previously exist, a new one is created. Once 
the data has been copied into the file, IBRDF closes the file. 

The book, Structured FORTRAN 77 For Engineers And Scientists (Ref. 
4), was heavily relied on as a FORTRAN 77 reference. It does not list 
binary files as one of the file types supported. After many unsuc- 
cessful attempts of reading the data from one of these files a call was 
made to the Microsoft Users Hotline. A Microsoft representative recom- 
mended opening the file as a BINARY type of file explaining that MS- 
FORTRAN 3.2 does support binary files. The following is an example of 
FORTRAN code that was used to successfully open files for use in the 
system controller program: 

OPEN (1, FILE-' A: DATA' , STATUS- ' OLD ' , FORM- ' BINARY' ) 

These BINARY files contained numeric data that could not be read 
with formatted read statements. Characters have to be read out one at a 
time into arrays before the data is available for numeric processing. 
Some data files can have over 5,000 characters and take a lot of time to 
be read into arrays . 

The data format used by specific devices can cause problems as well. 
The waveform data from the TEK 5223 Oscilloscope comes over the GPIB as 
a string of numbers separated by commas. The numbers are one, two, or 
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three digits long and can have a minus sign in front, 
ble to read this string of characters with a formatted 
pull out the separate data values, A great deal of 
just to get this data in a usable form. 



It is not possi- 
read statement to 
code was written 
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V. DEMONSTRATION SUBROUTINES 



Once the basic objectives of this study were met, further work was 
done to investigate the issues involved with developing software modules 
to perform a sequence of the basic operations already developed. To 
this end a subroutine to generate a BODE plot of a two port network and 
a subroutine to plot the waveforms shown on the digitizing oscilloscope 
were written. This chapter discusses these two subroutines and high- 
lights some of the problems encountered. 

A. BODE PLOT SUBROUTINE 

The BODE plot subroutine is selected in the SIGNAL GENERATOR MENU. 
This subroutine generates and records the data necessary to make a plot 
of input frequency vs. gain magnitude for a two port network. The user 
can select the starting and stopping frequencies to be swept while data 
is being recorded. The user also selects the number of points to be 
taken, up to 400. More points could be taken but the plotting software, 
SlideWrite Plus, can plot a maximum of only 400 total data points on a 
graph. This corresponds to one line of 400 points or two lines of 200, 
etc . 

The rms voltage of the output and the corresponding input frequency 
are recorded for each frequency generated. Figure 5.1 is block diagram 
of how the system is configured to conduct this test. The magnitude of 
the transfer gain is calculated as 20*log(V out /V^ n rms ) and recorded in 
a file with the corresponding input frequency. This data is then plot- 
ted with the SlideWrite Plus plotting package. The circuit shown in 
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Figure 5.2 was examined with this subroutine and the corresponding Bode 
Plot is shown in Figure 5.3. The input signal is assumed constant over 
all frequencies of the sweep. 
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Figure 5.1 Block Diagram of Bode Plot Test 



The Bode Plot shown in Figure 5.3 appears to represent the response 
of a Low-Pass Filter. The circuit is made up of passive elements so the 
gain is always zero DB or less. The circuit gain decreases as the input 
frequency increases . There appears to be a resonant frequency up at 
around 1 MHz. This is probably due to some stray reactances present in 
the circuit components that have little effect at the lower frequencies. 
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Figure 5.2 Low-Pass Filter 




Figure 5.3 Bode Plot of the Low-Pass Filter Circuit 



35 



Caution must be used when using this Bode Plot subroutine as some 
circuits tested were observed to load the signal generator at various 
frequencies and cause the input voltage to fall off. The change in 
input voltage may be very slight and not visible on the oscilloscope . 
The input voltage should always be checked with a voltmeter to be sure 
it remains constant. This problem could be corrected by using two 
voltmeters connected to the GPIB or by using a multiplexer to enable one 
voltmeter to take two different readings at the same frequency. 

B. WAVEFORM RECORDER SUBROUTINE 

The waveform recording routine is selected in the OSCILLOSCOPE MENU. 
The oscilloscope samples the input signal on either input channel and 
digitizes the amplitude. The number of sample data points generated 
depends on the sweep rate selected and the number of channels being 
displayed. For one dual trace amplifier in use and a sweep rate of not 
less than .1 msec/div, 512 points are taken representing a period of 
time equal to ten time divisions (one full oscilloscope screen) . For 
sweep rates less than .1 msec/div, 1024 points are taken. The increase 
in the number of points is to avoid aliasing by under- sampling . 

The plotting software, SlideWrite Plus, can plot a maximum of 400 
points. The waveform recording subroutine selects 400 out of 512 or 341 
out of 1024 points for plotting. The 400 out of 512 are selected by 
taking the first four of every five points up to 500 points and ignoring 
the last twelve points. The 341 points are selected by taking the first 
of every three data points up to 1024 points. Either number of points 
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do a fine job of representing a five inch wide oscilloscope trace with a 
few cycles of a waveform displayed. 

No scaling information is available from the oscilloscope via the 
GPIB. The user must enter the volts/div and time/div to allow the 
subroutine to properly scale the data. The numbers from the oscilloscope 
represent only the voltage amplitude information. Each vertical scale 
division is 100 units, so a value of 250 represents 2.5 divisions above 
the y-axis and a value of -320 represents 3.2 division below the y-axis. 
The waveform recorder subroutine uses the volts/div to scale the numbers 
transferred from the oscilloscope into volts. 

This subroutine also calculates the time scaling information by 
using the time/div entered by the user and the user's response to ques- 
tions about how many waveforms are being displayed. Both pieces of 
information dictate how many data points are sampled by the oscilloscope 
during one display trace. 

More expensive oscilloscopes have the scaling information available 
over the GPIB. 

Figure 5.4 shows a plot of a 1 KHz sine wave output by the WAVETEK 
MODEL 270 into Channel 1 of the TEK Oscilloscope . The signal has a peak 
amplitude of five volts. The volt/div is set on five volts/div and the 
time/div is set on .2 msec/div. This waveform is represented by 512 
points sent from the oscilloscope and has been plotted with 400 points. 
The plot is a very smooth sine wave. 

Figure 5.5 is a plot of the waveform shown on the oscilloscope when 
a 1 MHz square wave is output from the signal generator into Channel 1 
of the oscilloscope . The volts/div is set on two volts/div and the 
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VOLTS 



time/di v is set on 0.5 microseconds/div . The plot is a very accurate 
representation of the waveform shown on the oscilloscope . The slight 
distortion of this high frequency signal is clearly visible in the plot. 
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Figure 5.4 Plot of 1 KHz Sine Wave Shown on 0' Scope 
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Figure 5.5 Plot of 1 MHz Square Wave Shown on 0' Scope 
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VI, PROGRAMMING GUIDELINES 



While developing this system certain steps of the development were 
repeated. A set of steps evolved to be performed every time a new 
function was implemented in software. This chapter outlines these steps 
and details items to watch for when developing modules to use in the 
system. 

A. OUTLINE THE TASK 

The task to be performed was outlined on paper. This included 
drawing a schematic diagram clearly showing test points. Each test point 
was labeled to indicate the test equipment connections. The connections 
of the test equipment to be used, such as Channel A, Ground, High, and 
Guard were indicated. Labels for these points were assigned variable 
names in the system development language. These four connection points 
were labeled in FORTRAN 77 as CHANA, GRND , HIGH, and GUARD. 

Sketching a block diagram of the process to be performed is very 
helpful. This can be done using standard flow charting techniques. A 
block diagram of the process helps to show how control in the program 
flows and where data flows during execution. 

B. MODEL TASK WITH IBIC 

The program IBIC was run to develop the command strings necessary to 
perform the task outlined. These command strings are unique for each 
piece of equipment and are detailed in each equipment's technical 
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reference manual. Using IBIC allows for interactively entering command 
strings, executing them, and observing the results. 

C . GENERATE CODE 

Once the necessary command strings have been generated, program code 
in the programming language of choice can be written. This study used 
Microsoft FORTRAN 3.2, a subset of ANSI FORTRAN 77. Many of the issues 
discussed apply to other languages as well. 

Globally scoped variables were avoided. The handler from NI uses 
three global variables: IBSTA (status word), IBERR (GPIB error code), 
and IBCNT (the number of bytes sent). These should be the only globally 
scoped variables used. Using only locally scoped variables avoids the 
problems of side-effects and indiscriminate access that global variables 
are subject to. This speeds program development time, improves program 
readability, and facilitates software maintenance. 

Program modules were developed separately from the existing system 
program. This kept the amount of text to review with the editor being 
used to a minimum. For this study Wordstar was used as the text editor 
and allowed the user to view twenty- five lines of programming code in 
one screen. The program modules under development were written as 
subroutines. This ensured the proper identification of formal parame- 
ters required to be passed back and forth when the module was integrated 
into the existing system program. 

Previously developed subroutines were used when applicable. The 
editor can then copy blocks of text into files. The MS-FORTRAN Metacom- 
mand $INCLUDE can be used to include other files for compilation with 
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the one under development. This helps to keep the size of the file 
being edited to a minimum. 

Once the module is written and compiled, it should be tested exten- 
sively. By using the windowing environment of DESQview the system 
program GPIBX, IBIC, and the developed module were run in parallel. 
This facilitated testing the module as it allows observing the real time 
interaction of the module with the system program without actually 
changing the system program. The two programs are still separate and 
cannot change the operation of either' s code. 

D. INTEGRATE NEW CODE INTO GPIBX 

When the new module performs correctly, it can be implemented in the 
system program, GPIBX. FOR. The editor moves the necessary block of code 
from the developed module file into the GPIBX. FOR file. The necessary 
modifications were made such as the text of menus, additional function 
options, the addition of subroutine calls and returns, and the addition 
of comment lines to document the new subroutines . 

All subroutines developed in this study have a single point of 
return. This gives up some flexibility in programming but helps program 
readability. This is why menu selection proceeds in one level at a time 
and out one level at a time. 



42 



VII. CONCLUSIONS AND RECOMMENDATIONS 



This thesis took a close look at the GPIB interface circuitry and 
software made by National Instruments to enable an IBM- PC to be a GPIB 
system controller. Software was developed to implement interactive 
control of the test equipment from the computer keyboard. A subroutine 
to enable waveform data acquisition from the TEK 5223 Digitizing Oscil- 
loscope and to plot the data using software provided by Advanced Graph- 
ics Software Inc. on a HP740A plotter was developed. Another subroutine 
to generate a Bode Plot for a two -port system was developed. 



A. CONCLUSIONS 

The basic electronic laboratory equipment used at NPS are manual 
versions of the test equipment used in this study. This study has shown 
how an interactive program could be developed to allow automation of 
several of the processes involved in executing basic laboratory exer- 
cises such as data acquisition, waveform plotting, and Bode Plots. The 
results obtained point out several concluding points: 

1. Selection of a system development language is key. MS -FORTRAN 3.2 
doesn't support enough of the FORTRAN 77 extensions to make de- 
velopment as straight-forward as possible. The bulk of pro- 
gramming involves string manipulations. A language such as C is 
probably better suited to this application. 

2. Selection of an IBM-PC based computer enabled use of several 
different software packages for the IBM-PC and its compatibles. 
Editing the software was performed with WORDSTAR by MICROPRO. 
Operating the computer as a development system was done with 
DESQVIEW by QUARTERDECK. Plotting of data was done with 
SLIDEWRITE PLUS by ADVANCED GRAPHICS SOFTWARE. Using a widely 
supported computer such as the PC makes an extensive amount of 
software available giving any system development undertaken a lot 
of tools to use. 
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3. 



Use of a window based operating system such as Desqview allowed 
for several different IBIC sessions to be run at what appears to 
be the same time to the user; they actually run one at a time. 
This allowed for quick investigation of the necessary command 
strings to have a specific task performed by a particular piece of 
test equipment. Several pieces of equipment can be operated at 
the same time this way. The developed program, GPIBX, can also be 
run and the interaction of the GPIBX and the test equipment can be 
observed. A windows environment greatly speeds system 

development . 

4. Great care must be used when selecting software packages to be 

used with the system. A plotting/graphics package written by 

Enertronics was first tried to handle the plotting requirements. 
This software was not able to generate logarithmic plots as adver- 
tised. It also did not plot as many data points per line as 

stated in the manual. These deficiencies led to the use of 

SlideWrite Plus for plotting. 

5. Similar caution must be used when selecting GPIB devices as well. 
The TEK oscilloscope sends back graphic data as a string of ASCII 
characters. It requires a lot of program code to put these char- 
acters in a form usable in FORTRAN to express numeric data. 

6. Developing a program that is menu driven and allows the user to 

specify a series of operations, tests , and measurements for the 
GPIB controller to perform is beyond the scope of what a student 
can do as a thesis assignment. Such a system is technically 
feasible. NI recently began marketing just such a 

software/hardware package called Labview. It is written for an 
Apple Macintosh computer and may not have the I/O flexibility 
needed to make use of the different peripherals required for a 
specific development. 

7. The GPIB connector is made to allow stacking several connectors at 
the same connection point. As a result, the cable feeds in at a 
right angle to the connector. On the IBM- PC the arrangement of the 
connector in the back of the computer is such that the cable binds 
up against the computer housing. A GPIB socket extender would 
eliminate this annoying problem. 

B. RECOMMENDATIONS 

Further thesis work should be done evaluating some of the new soft- 
ware packages available at this time or this system could be developed 
into a fully interactive lab teaching aid for the elementary labs taught 
at NPS . As work progressed more sophisticated labs could be automated. 
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The development language should be changed to one having good char- 
acter string handling primitives. Selection of a language should be 
based on an evaluation of the documentation available, portability of 
compiled programs to run on different but compatible computers, run time 
speed of compiled programs, and the programming experience of the 
programmer . 

The local operation of devices on the GPIB should always be avail- 
able to allow students the opportunity to investigate their circuits 
outside the control of the computer program. Too much automation would 
be detrimental to a student's understanding of how an instrument works 
and what its capabilities and limits are. Observation of the operation 
of test equipment provides a lot of real world experience in applying 
concepts developed in different classes. 

A proposed student work station that could be used in an automated 
lab environment is shown in Figure 7.1. The block diagram shown in 
Figure 7.2 shows how these work stations could be connected to a single 
computer, printer, and plotter. The cost of personal computers used for 
this application may be low enough to have a dedicated personal computer 
for each work station. Having a computer at each work station would 
prevent a single computer failure from stopping the work of all 
students . 
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Figure 7.1 Proposed Student Work Station 
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Figure 7.2 Proposed Time Share System 
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APPENDIX A 



DEGL. FOR LISTING 



This is a listing of the Fortran variable declarations recommended 
for use and provided by National Instruments. This listing was provided 
by National Instruments with the exception of the list of variables 
appearing as all capital letters. 

c Microsoft FORTRAN Declarations 

$storage : 2 

c You must include the following common declarations 
c in your program, 
c 

c status variables declared common by the language interface 
c ibsta - status word 
c iberr - GPIB error code 
c ibcnt - number of bytes sent 



common /ibglob/ ibsta, iberr, ibcnt 



c Optionally include the following declarations in your 
c program. 



c 



c GPIB Commands and meanings 
c UNL - GPIB unlisten command 

c UNT - GPIB untalk command 

c GTL - GPIB go to local 

c SDC - GPIB selected dev clear 

c PPC - GPIB ppoll configure 

c GET - GPIB group execute trig'r 

c TCT - GPIB take control 

c LLO - GPIB local lock out 

c DCL - GPIB device clear 

c PPU - GPIB ppoll unconfigure 

c SPE - GPIB serial poll enable 

c SPD - GPIB serial poll disable 

c PPE - GPIB ppoll enable 

c PPD - GPIB ppoll disable 



integer UNL, UNT, GTL, SDC, PPC, GET, TCT 
integer LLO, DCL, PPU, SPE, SPD, PPE, PPD 



c GPIB status bit vector : 



c 



c 



global variable ibsta and wait mask 
ERR (hex 8000) - Error detected 



c 



TIMO (hex 4000) - Timeout 



c 



c 



END (hex 2000) - EOI or eos detected 
SRQI (hex 1000) - SRQ detected by CIC 
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c 


RQS 


(hex 


800) - 


Device needs service 


c 


CMPL 


(hex 


100) 


- I/O completed 


c 


LOK 


(hex 


80) 


- Local lockout state 


c 


REM 


(hex 


40) - 


Remote state 


c 


CIC 


(hex 


20) 


- Controller- in-charge 


c 


ATN 


(hex 


10) 


- Attention asserted 


c 


TACS 


(hex 


8) 


- Talker active 


c 


LACS 


(hex 


4) 


- Listener active 


c 


DTAS 


(hex 


2) 


- Device trigger state 


c 


DCAS 


(hex 


1) 


- Device clear state 



integer ERR, TIMO, END, SRQI , RQS , CMPL, LOK 
integer REM, CIC, ATN , TACS , LACS, DTAS , DCAS 

c Error messages returned in common variable iberr 
c EDVR = 0 DOS error 

c ECIC = 1 Function requires board to be CIC 

c ENOL = 2 Write function detected no Listeners 

c EADR - 3 Interface board not addressed correctly 

c EARG = 4 Invalid argument to function call 

c ESAC = 5 Function requires board to be SAC 

c EABO = 6 I/O operation aborted 

c ENEB = 7 Non-existent interface board 

c EOIP = 10 I/O operation started before previous operation completed 

c ECAP = 11 No capability for operation 

c EFSO = 12 File system operation error 

c EBUS = 14 Command error during device call 

c ESTB - 15 Serial Poll status byte lost 

c ESRQ = 16 SRQ remains asserted 

integer EDVR, ECIC , ENOL, EADR, EARG , ESAC , EABO 
integer ENEB , EOIP , ECAP , EFSO , EBUS , ESTB , ESRQ 

c EOS mode bits 

c BIN (hex 1000) - Eight bit compare 

c XEOS (hex 800) - Send EOI with eos byte 

c REOS (hex 400) - Terminate read on eos 





integer 


BIN, XEOS, 


REOS 




c 


Timeout values 


and meanings 






c 


TNONE = 


0 


Infinite timeout 


(disabled) 


c 


TIOus 


1 


Timeout 


of 


10 us 


(ideal) 


c 


T30us = 


2 


Timeout 


of 


30 us 


(ideal) 


c 


TIOOus = 


3 


Timeout 


of 


100 us (ideal) 


c 


T300us = 


4 


Timeout 


of 


300 us (ideal) 


c 


Tims = 


5 


Timeout 


of 


1 ms 


(ideal) 


c 


T3ras = 


6 


Timeout 


of 


3 ms 


( ideal) 


c 


TIOms = 


7 


Timeout 


of 


10 ms 


(ideal) 


c 


T30ms = 


8 


Timeout 


of 


30 ms 


(ideal ) 


c 


TIOOms = 


9 


Timeout 


of 


100 ms (ideal) 
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T300ms = 10 Timeout of 300 ms (ideal) 
Tls = 11 Timeout of 1 s (ideal) 

T3s - 12 Timeout of 3 s (ideal) 

TlOs = 13 Timeout of 10 s (ideal) 

T30s = 14 Timeout of 30 s (ideal) 

TIOOs * 15 Timeout of 100 s (ideal) 
T300s = 16 Timeout of 300 s (ideal) 

TIOOOs = 17 Timeout of 1000 s (maximum) 
integer TNONE , TlOus , T30us , TlOOus , T300us 
integer Tims , T3ms , TIOms , T30ms , TIOOms 
integer T300ms , Tls , T3s , TlOs , T30s 
integer TIOOs , T300s , TIOOOs 

Miscellaneous 

S - specifies sense of PPR 
LF - ASCII line feed character 



integer S , LF 

Variables passed in to GPIB function examples 
cmd - command buffer 

rd - read data buffer 

wrt - write data buffer 

bname - board name buffer 
bdname - board or device name buffer 
flname - file name buffer 

bd - board or device number 

dvm - device number 

v - "value" parameter 

cnt - byte count for transfers 

mask - events to be waited for 
spr - serial poll response byte 
ppr - parallel poll response byte 



integer cmd (10) ,rd(512) ,wrt(512) 

character*8 bname , bdname 
character*50 flname 
integer bd , dvm, v , cnt , mask 

integer spr, ppr 



’**** THESE DECLARATIONS ARE NEEDED TO RUN GPIBX ***** 



- - - SOME DECLARATIONS . . . 
SELECTION: 
ERROR2SELECTION: 
PS: 

DMM: 

COUNTER: 

SIGGEN: 

OSCOPE: 



OPTION SELECTED BY USER 

ERROR MESSAGE FOR INCORRECT SELECTION BY USER 

POWER SUPPLY SUBROUTINE 

DIGITAL MULTIMETER SUBROUTINE 

COUNTER/TIMER SUBROUTINE 

SIGNAL GENERATOR SUBROUTINE 

OCCILISCOPE SUBROUTINE 



CHARACTER*! SELECTION 



o o 



CHARACTER* 50 ERR0R2 SELECTION 

ERROR2 SELECTION = ' ERROR. .. INVALID SELECTION, TRY AGAIN.' 



c GPIB Commands : values 

data UNL/63/ .UNT/95/ , GTL/01/ , SDC/04/ , PPC/05/ 
data GET/08/, TCT/09/, LLO/17/ , DCL/20/ , PPU/21/ 
data SPE/24/ , SPD/25/ , PPE/96/ , PPD/112/ 

c GPIB status bit vector: values 

c To check for error in ibsta - if (ibsta .LT. 0)... 
c data ERR/-32768/ 

data TIM0/16384/ , END/8192/ , SRQI/4096/ 

data RQS/2048/ , CMPL/256/ , LOK/128/ , REM/64/ , CIC/32/ 

data ATN/16/ , TACS /8/ , LACS/4/ , DTAS/2/ , DCAS/1/ 

c Iberr error messages: values 



data 

data 

data 



EDVR/0/ , ECIC/1/ , ENOL/2/ , EADR/3/ , EARG/4/ 
ESAC/5/ , EAB0/6/ , ENEB/7/ , EOIP/IO/ , ECAP/11/ 
EFSO/12/ , EBUS/14/ , ESTB/15/ , ESRQ/16/ 



c EOS mode bit values 



data BIN/4096/ ,XE0S/2 048/ .REOS/l 024/ 



c Timeout values 



data TNONE/O/ , TIOus /!/ , T30us/2 / , T100us/3/ , T300us/4/ 
data Tlms/5/ , T3ms/6/ , T10ms/7/ , T30ms/8/ , T100ms/9/ 
data T300ms/10/ , Tls/11/ ,T3s/12/T10s/13/ , T30s/14/ 
data T100s/15/ , T300s/16/ , T1000s/17/ 



c Miscellaneous values 



data S/08/ , LF/10/ 
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o n 



APPENDIX B 



GPIBX PROGRAM LISTING 



This is a listing of the developed system controller program called 
GPIBX. 



$ INCLUDE: ' DECL. FOR' 



C 

C 

C 

C 

C 

c 

1 

2 

10 



20 



GPIBX. FOR 

IBM- PC/AT GPIB CONTROLLER PROGRAM 
MAIN PROGRAM 



THIS CALL INITIALIZES THE GPIB BUS ***** 
CALL IBINIT (IBSTA) 



CALL CLEAR 

CALL MAINMENU 

READ (*,10) SELECTION 

FORMAT (lAl) 

IF (SELECTION .EQ. 'P') THEN 
CALL PS 

ELS El F (SELECTION .EQ. 'D') THEN 
CALL DMM 

ELSEIF (SELECTION .EQ. 'C') THEN 
CALL COUNTER 

ELSEIF (SELECTION .EQ. 'S') THEN 
CALL SIGGEN 

ELSEIF (SELECTION .EQ. 'O') THEN 
CALL OSCOPE 

ELSEIF (SELECTION .EQ. 'F') THEN 
CALL FUNCMU 

ELSEIF (SELECTION .NE. 'X') THEN 

WRITE (*,20) ERROR2S ELECTION 
FORMAT ('O', 1A50) 

GOTO 2 



ELSE 

STOP 

END IF 
GOTO 1 
END 
C 
C 

SUBROUTINE CLEAR 

C***** THIS CLEARS THE SCREEN ***** 

C ---SOME DECLARATIONS. . . 

C 

CHARACTER*! Cl, C2 , C3, C4 
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I NT EGER* 2 IC(4) 

EQUIVALENCE (Cl , IC(1) ) , (C2 , IC(2) ) , (C3 , IC ( 3) ) , (C4 , IC(4) ) 
DATA IC/16#1B , 16#5B , 16#32 , 16#4A/ 

C 

WRITE (*,1) C1,C2,C3,C4 
1 FORMAT (1X.4A1) 

RETURN 

END 

C 

C 

SUBROUTINE MAINMENU 

C***** THIS PUT THE MAIN MENU ON THE SCREEN ***** 

C ---SOME DECLARATIONS. . . 

C MENUDIS: MENU DISPLAY 

CHARACTER*50 MENUDIS , PS 5010 , DM5010 , DC5009 , WAVTEK , TEK , EXIT , FUNC 
MENUDIS = ' *** MAIN MENU ***' 

PS5010 = 'P POWER SUPPLY' 

DM5010 - 'D DIGITAL MULTIMETER' 

DC5009 - 'C COUNTER/TIMER' 

WAVTEK = 'S SIGNAL GENERATOR' 

TEK = '0 OSCILLOSCOPE' 

FUNC = 'F special FUNCTIONS' 

EXIT = 'X EXIT PROGRAM’ 

C 

WRITE (*,10) MENUDIS 
10 FORMAT ('O', 1A50) 

WRITE (*,20) PS5010 
20 FORMAT ('O'.lASO) 

WRITE (*,20) DM5010 
WRITE (*,20) DC5009 
WRITE (*,20) WAVTEK 
WRITE (*,20) TEK 
WRITE (*,20) FUNC 
WRITE (*,20) EXIT 
WRITE (*,30) 

30 FORMAT (' 0 ', 9X, ' ENTER YOUR SELECTION.') 

C 

RETURN 

END 

C 

C 

SUBROUTINE PS 

C***** THIS IS THE DRIVER FOR THE POWER SUPPLY ***** 

C ---SOME DECLARATIONS. . . 

C PSSELECT : POWER SUPPLY MENU SELECTION 

C 

CHARACTER* 1 PSSELECT 
C 
C 

1 CALL CLEAR 

2 WRITE (*,10) 
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WRITE (*,20) 
WRITE (*,30) 
WRITE (*,40) 
WRITE (*,50) 
WRITE (*,60) 
WRITE (*,65) 
C 



10 


FORMAT 


('0' , 


'*** POWER SUPPLY MENU ***') 


20 


FORMAT 


('0' , 


'1 


.SET VOLTAGES') 


30 


FORMAT 


('0' , 


'2 


.SET CURRENT') 


40 


FORMAT 


( '0' , 


'3 


ENABLE OUTPUT') 


50 


FORMAT 


( '0' , 


' RET 


.RETURN TO MAIN MENU') 


60 


FORMAT 


( '0' , 


'X 


EXIT PROGRAM' ) 


65 


FORMAT 


('0' , 


9X, 'ENTER 


YOUR SELECTION. ' ) 




READ (* 


,70) 


PSSELECT 




70 


FORMAT 


(1A1) 







IF (PSSELECT .EQ. '1') THEN 
CALL SETVOLT 

ELSEIF (PSSELECT .EQ. '2') THEN 
CALL SETCURRENT 

ELSEIF (PSSELECT .EQ. '3') THEN 
CALL OUTONOFF 

ELSEIF (PSSELECT .EQ. ' ') THEN 
RETURN 

ELSEIF (PSSELECT . EQ . 'X') THEN 
STOP 

ELSE 

WRITE (*,80) 

80 FORMAT ('0',' INVALID INPUT, TRY AGAIN') 

GOTO 2 

END IF 
GOTO 1 
END 
C 
C 

SUBROUTINE DMM 

C***** THIS IS THE DRIVER FOR THE DIGITAL MULTIMETER ***** 

CHARACTER* 1 ACDC(4) ,ACV(3) ,DCV(3) ,DIODE(5) ,0HMS(4) , DMMS EL 
INTEGER WRT(512),DVM 
C 

ACV ( I ) = 'A' 

ACV ( 2 ) = 'C' 

ACV ( 3 ) = 'V' 

C 

ACDC(l)- 'A' 

ACDC(2)= 'C' 

ACDC(3)= 'D' 

ACDC (4)= 'C' 

C 

DCV ( 1 ) = 'D' 
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DCV(2)= 'C' 
DCV(3)= 'V' 

C 

DIODE(l)- 'D' 
DIODE(2)= 'I' 
DIODE(3)- 'O' 
DI0DE(4)= 'D' 
DIODE(5)= 'E' 
C 

OHMS ( 1) = 'O' 
OHMS ( 2 ) = 'H' 
OHMS (3)= 'M' 
OHMS (4)= 'S' 

C 

1 CALL CLEAR 



2 


WRITE 


(*,10) 






WRITE 


(*,20) 






WRITE 


(*,30) 






WRITE 


(*,40) 






WRITE 


(*,50) 






WRITE 


(*,60) 






WRITE 


(*,70) 






WRITE 


(*,80) 




r 


WRITE 


(*,90) 




10 


FORMAT 


( ' 0 ' , ' *** DIGITAL MULTIMETER MENU **■ 


20 


FORMAT 


('0' ,'1 


. .DC VOLTS' ) 


30 


FORMAT 


('0' , '2 


. . OHMS ' ) 


40 


FORMAT 


( ' 0 ' , '3 


..AC VOLTS rms ' ) 


50 


FORMAT 


( '0' , '4 


. . AC+DC VOLTS rms ' ) 


60 


FORMAT 


('0' , '5 


. .DIODE TEST' ) 


70 


FORMAT 


( ' 0 ' , ' RET 


. .RETURN TO MAIN MENU') 


80 


FORMAT 


( '0' , 'X 


. .EXIT' ) 


90 

n 


FORMAT 


( ' 0 ' , ' ENTER YOUR SELECTION ' ) 


o 


READ ( 


*,100) DMMSEL 




100 


FORMAT 


(1A1) 





C 

DVM= IBFIND ( ' DMM ') 

IF (DMMSEL .EQ. '1') THEN 

CALL STRING (DCV,3,WRT) 
CALL IBWRT (DVM,WRT,3) 
ELSEIF (DMMSEL .EQ. '2') THEN 

CALL STRING (0HMS,4,WRT) 
CALL IBWRT (DVM,WRT,4) 
ELSEIF (DMMSEL .EQ. '3') THEN 

CALL STRING (ACV,3,WRT) 
CALL IBWRT (DVM,WRT,3) 
ELSEIF (DMMSEL .EQ. '4') THEN 

CALL STRING (ACDC,4,WRT) 
CALL IBWRT (DVM.WRT.4) 
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ELSEIF 



ELSEIF 
ELSEIF 
ELSE 

110 

ENDIF 
GOTO 1 
END 
C 
C 

SUBROUTINE COUNTER 

C***** THIS IS THE UNDEVELOPED DRIVER FOR THE COUNTER/TIMER ***** 
C ---SOME DECLARATIONS. . . 

99 RETURN 

END 
C 
C 

SUBROUTINE SIGGEN 

c***** this is the signal generator driver ***** 

C ---SOME DECLARATIONS. . . 

C SIGSEL: SIGGEN MENU SELECTION 

C 

CHARACTER* 1 SIGSEL 
C 

1 CALL CLEAR 

2 WRITE (*,10) 

WRITE (*,20) 

WRITE (*,30) 

WRITE (*,40) 

WRITE (*,50) 

WRITE (*,60) 

WRITE (*,65) 

WRITE (*,70) 

WRITE (*,80) 

WRITE (*,90) 

C 



10 


FORMAT 


('0' 


9 'k'k'k 


SIGNAL GENERATOR MENU ***' 


20 


FORMAT 


('0' 


\ 'i. . . 


FREQUENCY' ) 


30 


FORMAT 


( '0' 


, '2. . . 


AMPLITUDE' ) 


40 


FORMAT 


( '0' 


, '3. . . 


FUNCTION' ) 


50 


FORMAT 


('0' 


, '4. . . 


OFFSET' ) 


60 


FORMAT 


('0' 


, '5. . . 


OUTPUT ENABLE ' ) 


65 


FORMAT 


('0' 


, '6. . . 


SWEEP FREQUENCIES') 


70 


FORMAT 


('0' 


, 'RET 


RETURN TO MAIN MENU') 


80 


FORMAT 


('0' 


, 'X. . . 


EXIT' ) 



(DMMSEL .EQ. '5') THEN 
CALL STRING (DIODE , 5 , WRT) 

CALL IBWRT (DVM,WRT,5) 

(DMMSEL .EQ. ' ') THEN 
RETURN 

(DMMSEL .EQ. 'X') THEN 
STOP 

WRITE (*,110) 

FORMAT (' 0 INVALID SELECTION, TRY AGAIN') 
GOTO 2 
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90 

C 

100 

C 



110 



C 

c 

c *•**•* ■a 



c 



c 



10 

c 

20 

C 



30 

c 



FORMAT ('0' ,9X, 'ENTER YOUR SELECTION') 



READ (*,100) SIGSEL 
FORMAT (1A1) 



IF (SIGSEL .EQ. '1') THEN 
CALL FREQ 

ELSEIF (SIGSEL .EQ. '2') 
CALL AMP 

ELSEIF (SIGSEL .EQ. '3') 
CALL FUNC 

ELSEIF (SIGSEL .EQ. '4') 
CALL OFFSET 

ELSEIF (SIGSEL .EQ. '5') 
CALL SI GOUT 

ELSEIF (SIGSEL .EQ. '6') 
CALL SWEEP 

ELSEIF (SIGSEL .EQ. ' ') 
RETURN 

ELSEIF (SIGSEL .EQ. 'X') 
STOP 



THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 



ELSE 

WRITE (*,110) 

FORMAT ( ' 0 ' , ' INVALID RESPONSE , TRY AGAIN . ' ) 
GOTO 2 



END IF 
GOTO 1 
END 



SUBROUTINE FREQ 

THIS MAKES THE SIGGEN OUTPUT A SPECIFIED FREQUENCY ***** 

INTEGER DVM, I ,WRT(512) 

CHARACTER*1 FREQ(13) , INPUT (11) 

FREQ(l)- 'F' 

FREQ (13)- 'I' 

DVM= IBFIND ('SIGGEN ') 

WRITE (*,10) 

FORMAT ('0' ,9X, 'ENTER DESIRED FREQUENCY AS XXX. XEX ( . 01Hz - 12MHz ) ' ) 

READ (*,20) INPUT 
FORMAT ( 11A1) 

DO 30 1= 1,11 

FREQ(I+1)= INPUT(I) 

CONTINUE 

CALL STRING (FREQ , 13 , WRT) 

CALL IB WRT (DVM, WRT, 13) 
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RETURN 

END 

C 

C 

SUBROUTINE AMP 

C***** THIS MAKES THE SIGGEN OUTPUT A SPECIFIED AMPLITUDE ***** 

INTEGER DVM, I , WRT(512) 

CHARACTER*! AMP (13) , INPUT (11) 

C 

AMP(1)= 'A' 

AMP(13)= 'I' 

C 

DVM= IBFIND ('SIGGEN ') 

WRITE (*,10) 

10 FORMAT ( '0' ,9X, 'ENTER DESIRED AMPLITUDE AS XX.XEX (FREE FORMAT)') 

WRITE (*,15) 

15 FORMAT ( '0' ,9X, ' SIGNAL AMPLITUDE IS Vpp FROM lOmV TO 10. OV') 

C 

READ (*,20) INPUT 
20 FORMAT (llAl) 

C 

DO 30 1= 1,11 

AMP(I+1)« INPUT(I) 

30 CONTINUE 

C 

CALL STRING (AMP,13,WRT) 

CALL IBWRT (DVM,WRT,13) 

RETURN 

END 

C 

C 

SUBROUTINE FUNC 

C***** THIS MAKES THE SIGGEN OUTPUT A SPECIFIED WAVEFORM ***** 

INTEGER DVM, I ,WRT(512) 

CHARACTER* 1 INPUT , CO (3) , Cl (3) , C2 (3) ,C3(3) ,C4(3) 

C 

C0(1)- 'C' 

CO (2)= '0' 

C0(3)= 'I' 

C 

Cl(l)= 'C' 

Cl(2)= '1' 

Cl(3)= 'I' 

C 

C2(l)= 'C' 

C2(2)= '2' 

C2(3)= 'I' 

C 

C3(l)= 'C' 

C3(2)= '3' 

C3(3)= 'I' 
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c 

c 

c 

1 

2 

10 

20 

30 

40 

50 

60 

70 

80 

C 

90 

C 

100 



C4(l)= 'C' 

C4 ( 2 ) = '4' 

C4(3)- 'I' 

DVM= IBFIND ( ' SIGGEN ' ) 

CALL CLEAR 
WRITE (*,10) 

WRITE (*,20) 

WRITE (*,30) 

WRITE (*,40) 

WRITE (*,50) 

WRITE (*,60) 

WRITE (*,70) 

WRITE (*,80) 

FORMAT ('0','*** SIGNAL GENERATOR FUNCTION MENU ***') 



FORMAT ( ' 0 ' , ' 1 SINE WAVE ' ) 

FORMAT ( ' 0 ' , ' 2 TRIANGLE WAVE ' ) 

FORMAT ('O', '3 SQUARE WAVE in phase with sync output') 

FORMAT ('O', '4 SQUARE WAVE out of phase with sync output') 

FORMAT ( ' 0 ' , ' 5 DC OUTPUT VOLTAGE ' ) 

FORMAT ('O', 'RET RETURN TO SIGNAL GENERATOR MAIN MENU') 

FORMAT ('0','X EXIT PROGRAM') 



READ (*,90) INPUT 
FORMAT ( 1A1 ) 

IF (INPUT .EQ. '1') THEN 

CALL STRING (C0,3,WRT) 

CALL IBWRT (DVM,WRT,3) 

ELSEIF (INPUT .EQ. '2') THEN 

CALL STRING (C1,3,WRT) 

CALL IBWRT (DVM,WRT,3) 

ELSEIF (INPUT .EQ. '3') THEN 

CALL STRING (C2,3,WRT) 

CALL IBWRT (DVM,WRT,3) 

ELSEIF (INPUT .EQ. '4') THEN 

CALL STRING (C3,3,WRT) 

CALL IBWRT (DVM,WRT,3) 

ELSEIF (INPUT .EQ. '5') THEN 

CALL STRING (C4,3,WRT) 

CALL IBWRT (DVM,WRT,3) 

ELSEIF (INPUT .EQ. ' ') THEN 
RETURN 

ELSEIF (INPUT .EQ. 'X') THEN 
STOP 

ELSE 

WRITE (*,100) 

FORMAT ( ' 0 ' , 9X , ' INVALID ENTRY , TRY AGAIN ' ) 
GOTO 2 
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END IF 
GOTO 1 
END 
C 
C 

SUBROUTINE OFFSET 

c ***** THIS ENTERS A DC OFFSET FOR THE SIGGEN OUTPUT ***** 

INTEGER DVM, I ,WRT(512) 

CHARACTER* 1 D(6) , INPUT(4) 

C 

D(l)= 'D' 

D(6)= 'I' 

C 

DVM= IBFIND ( ' SIGGEN ' ) 

WRITE (*,10) 

10 FORMAT ('0' ,9X, 'ENTER DESIRED OFFSET AS -5.00 TO +5.00 VOLTS') 

C 

READ (*,20) INPUT 
20 FORMAT (4A1) 

C 

DO 30 1= 1,4 

D(I+1)= INPUT (I) 

30 CONTINUE 

C 

CALL STRING (D,6,WRT) 

CALL IBWRT (DVM,WRT,6) 

RETURN 

END 

C 

C 

SUBROUTINE SIGOUT 

c***** THIS TOGGLES THE SIGGEN OUTPUT ***** 

CHARACTER* 1 P0(3) ,P1(3) , INPUT 
INTEGER WRT(512) , DVM 
C 

DVM = IBFIND ('SIGGEN ') 

C 

P0(1)= 'P' 

PO (2)= '0' 

P0(3)= 'I' 

C 

Pl(l)= 'P' 

Pl(2)= '1' 

Pl(3)- 'I' 

C 

1 WRITE (*,10) 

10 FORMAT ('0' ,9X, 'SIGNAL GENERATOR OUTPUT ON? ENTER Y OR N' ) 

C 

READ (*,20) INPUT 
20 FORMAT (1A1) 

IF (INPUT .EQ. 'Y') THEN 



60 



30 



C 

C 



c 



c 

c 



10 

20 

30 

40 



50 

60 

C 

65 

C 

80 

C 



CALL STRING (P1,3,WRT) 

CALL I BURT (DVM,URT,3) 

ELSEIF (INPUT .EQ. 'N') THEN 

CALL STRING (P0,3,WRT) 

CALL IBWRT (DVM,WRT,3) 

ELSE 

WRITE (*,30) 

FORMAT (' 0 INVALID RESPONSE, TRY AGAIN') 
GOTO 1 

ENDIF 

RETURN 

END 



SUBROUTINE SWEEP 

THIS SWEEPS THRU A RANGE OF FREQUENCIES ***** 

CHARACTER* 8 INPUTA , INPUTB 
CHARACTER* 1 FREQ (10) , TEMP (8) , INPUTC 
INTEGER I , J ,K,L,DVM, STEPS ,WRT(512) , TEMP A 
REAL STARTF.STEPF, VALUE 

FREQ ( 1 ) = 'F' 

FREQ (10) = 'I' 

DVM = IBFIND ('SIGGEN ') 

CALL CLEAR 
WRITE (*,10) 

FORMAT ('O', 'SWEEP FREQUENCIES FUNCTION') 

WRITE (*,20) 

FORMAT ('O', 'ENTER STARTING FREQUENCY AS XXX. XEX ( . 01Hz- 12MHz) ' ) 
READ (*,30) INPUTA 
FORMAT (1A8) 

WRITE (*,40) 

FORMAT ('O', 'ENTER FREQUENCY STEP SIZE AS XXX. XEX ( . 01Hz - 12MHz ) ' ) 
READ (*,30) INPUTB 
WRITE (*,50) 

FORMAT ('O', 'ENTER NUMBER OF STEPS 1-99') 

READ (*,60) STEPS 
FORMAT (112) 



READ (INPUTA, 65) STARTF 
FORMAT (BNF8.0) 

READ (INPUTB, 65) STEPF 

READ (INPUTA, 80) TEMP 
FORMAT (8Al) 

DO 70 1=1, STEPS 

DO 90 J-1,8 

FREQ ( J + 1 ) =T EMP ( J ) 
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90 

95 

100 

110 

120 

70 

C 

C 

c** 

c 

1 

2 

C 

10 

20 

30 

40 

50 

60 

70 

C 

100 

C 



CONTINUE 

CALL STRING (FREQ, 10 , WRT) 

CALL IB WRT (DVM,WRT,10) 

WRITE (*,95) STARTF 

FORMAT ( ' 0 ' , ' FREQUENCY IS NOW ' , F10 . 2 , ' Hz') 

WRITE (*,100) I 
FORMAT ('0' , 'STEP #' ,12, 

' COMPLETE . ENTER RET TO CONTINUE OR ANY OTHER KEY TO END ' ) 
READ (*,110) INPUTC 
FORMAT ( 1A1) 

IF (INPUTC .NE. ' ') THEN 
RETURN 

ELSE 

STARTF = STARTF + STEPF 
VALUE = STARTF 
DO 120 K-1,8 

TEMPA = INT( STARTF/ (10**(8-K) ) ) 

TEMP(K) - CHAR (TEMPA + 48) 

STARTF = STARTF - (TEMPA*10**(8-K) ) 

CONTINUE 
STARTF = VALUE 

END IF 

CONTINUE 

RETURN 

END 



SUBROUTINE OSCOPE 
THIS IS THE OSCOPE DRIVER ***** 

DVM = IBFIND ('OSCOPE ') 

CALL CLEAR 
WRITE (*,10) 

WRITE (*,20) 

WRITE (*,30) 

WRITE (*,40) 

WRITE (*,50) 

WRITE (*,60) 

WRITE (*,70) 

FORMAT ('0','*** OSCOPE MENU ***') 

FORMAT ( ' 0 ' , ' 1 RECORD WAVEFORM DATA' ) 

FORMAT ('O', '2 GO TO LOCAL') 

FORMAT ( ' 0 ' , ' 3 REMOTE ENABLE ' ) 

FORMAT ( ' 0 ' , ' RET RETURN TO MAIN MENU ' ) 

FORMAT ( '0' , 'X EXIT' ) 

FORMAT ('O', 'ENTER YOUR SELECTION') 

READ (*,100) SELECTION 
FORMAT ( 1A1) 
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IF (SELECTION .EQ. '1') THEN 
CALL RECORD 



ELSEIF 


(SELECTION , 
CALL IBLOC 


.EQ. ' 2 ') 
(DVM) 


THEN 


ELSEIF 


(SELECTION , 


.EQ. 


' 3' ) 


THEN 




DVM = IBFIND (' 


’OSCOPE ') 


ELSEIF 


(SELECTION 

RETURN 


.EQ. 


' ') 


THEN 


ELSEIF 

'ELSE 


(SELECTION 

STOP 


.EQ. 


'X' ) 


THEN 



WRITE (*,110) 

110 FORMAT (' 0 INVALID SELECTION, TRY AGAIN' ) 

GOTO 2 

END IF 
GOTO 1 
END 
C 
C 

SUBROUTINE RECORD 

C***** THIS IS THE WAVEFORM RECORDING DRIVER ***** 

CHARACTER* 1 SEL, ACCESM(4) , ASCII(2) , RECORM(13) , RELALM ( 7 ) 
CHARACTER* 15 REC , ACCESS, RELALL, FILNAM 
INTEGER WRT(512) ,DVM 
REAL TIMDIV , VOLDIV 
C 

ASCII (1) = 'A' 

ASCII (2) = 'S' 

REC - 'SEL SAVE . R; C? ' 

RELALL = 'REL ALL' 

C 

DVM - IBFIND ('OSCOPE ') 

1 CALL CLEAR 
C 

WRITE (*,800) 

800 FORMAT ('O', 'THIS PROGRAM CREATES A DATA FILE THAT CAN BE’) 

WRITE (*,810) 

810 FORMAT (' ' , ' BE USED WITH THE SLIDE WRITE PLUS PROGRAM TO') 

WRITE (*,820) 

820 FORMAT (' ' , ' PLOT THE WAVEFORMS ON THE OSCOPE. ADJUST THE') 

WRITE (*,830) 

830 FORMAT (' ',' SCOPE FOR A PROPERLY TRIGGERED TRACE, NO JITTER') 
WRITE (*,840) 

840 FORMAT (' ' , 'USE THE HORIZ CONTROL TO LEFT JUSTIFY THE TRACES') 
C 

2 WRITE (*,10) 

10 FORMAT ('0' , 'SELECT WAVEFORM DESIRED' ) 

WRITE (*,20) 

20 FORMAT ('0',' 1 RIGHT COMPARTMENT CHANNEL 1') 

WRITE (*,30) 

30 FORMAT (' ',' 2 RIGHT COMPARTMENT CHANNEL 2') 
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WRITE (*,40) 

40 FORMAT ( ' 0 ' , ' ENTER YOUR SELECTION 1 OR 2 ' ) 

READ (*,50) SEL 
50 FORMAT (1A1) 

IF (SEL .EQ. '1') THEN 
ACCESS = 'A Rl' 

ELSEIF (SEL .EQ. '2') THEN 
ACCESS = 'A R2 ' 

ELSE 

WRITE (*,60) 

60 FORMAT (' 0 INVALID SELECTION, TRY AGAIN') 

GOTO 2 

END IF 
C 

READ (ACCESS, 70) ACCESM 
70 FORMAT (4A1) 

C 

CALL STRING (ACCESM, 4 ,WRT) 

CALL IBWRT (DVM,WRT,4) 

C 

CALL STRING (ASCII , 2 , WRT) 

CALL IBWRT (DVM,WRT,2) 

C 

C 

READ (REC , 80) RECORM 
80 FORMAT (13A1) 

CALL STRING (RECORM, 13 , WRT) 

CALL IBWRT (DVM.WRT , 13) 

C 

CALL IBRDF (DVM,' SCOPE ') 

C 

WRITE (*,300) 

300 FORMAT ('O', 'ENTER TIME/DIV AS X.XXEX' ) 

READ (*,310) TIMDIV 
310 FORMAT (1BNF10.7) 

TIMDIV = TIMDIV *10.0 
WRITE (*,320) 

320 FORMAT ('O', 'ENTER VOLTS/DIV AS X.XXEX') 

READ (*,330) VOLDIV 
330 FORMAT (1BNE12.6) 

C 

CALL SCALER (TIMDIV, VOLDIV) 

C 

READ (RELALL, 110) RELALM 
110 FORMAT (7A1) 

CALL STRING (RELALM, 7 , WRT) 

CALL IBWRT (DVM.WRT, 7) 

CALL IBLOC (DVM) 

WRITE (*,900) 

900 FORMAT ('O', 'YOU CAN NOW USE SLIDE WRITE PLUS TO PLOT YOUR') 
WRITE (*,910) 
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910 



FORMAT (' ' , 'DATA FILES. HIT ENTER TO CONTINUE') 

READ (*,920) SEL 
920 FORMAT (lAl) 

RETURN 

END 

C 

C 

SUBROUTINE SCALER (TIMDIV, VOLDIV) 
c***** THIS scales the data received from THE OSCOPE ***** 
CHARACTER* 6 CURVE 

INTEGER I , J , K , MINUS , L , COUNT , END , NOPTS 
CHARACTER* 1 OSDATA( 5000) , COMMA 

REAL YDATA(1016) ,YTEMP(3) , TIMDIV , VOLDIV , XDATA , OFFSET 
CHARACTER*12 FILNAM 
C 

COMMA= ' , ' 

C 

NOPTS = 508 

IF (TIMDIV . LT. 0.000075) NOPTS = 1016 
C 

OPEN (1,FILE=' SCOPE ' , STATUS=' OLD' , FORM= ' BINARY' ) 

C 

READ (1) CURVE 
C 

1 = 1 

1 READ (1 , ERR=30 , END=40) OSDATA(I) 

I = 1+1 
GOTO 1 

30 WRITE (*,50) 

50 FORMAT (' ',' ERROR IN READING FILE') 

40 CLOSE (1) 

C 

COUNT = I 
END = COUNT -3 
C 

1 = 1 
K = 1 
J - 1 
MINUS = 0 

100 IF (OSDATA(I) .EQ. '-') THEN 

MINUS = 1 
I = 1+1 

END IF 

YTEMP(K) = FLOAT ( I CHAR (OSDATA(I))) 

YTEMP(K) = YTEMP(K) - 48.0 
I = 1+1 
K = K+l 

IF (K .GT. 7) STOP 
IF (OSDATA(I) .NE. ',') THEN 
GOTO 100 

ELSE 
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GOTO 118 



118 



C 

120 

400 

410 



420 

220 



500 

300 



C 

C 

Q'k'k'k'ifk 



ENDIF 
K = K-l 

IF (K .EQ. 3) THEN 

YDATA(J) = (100 . 0*YTEMP(K-2) )+(10 . 0*YTEMP(K-1) )+YTEMP(K) 
ELSEIF (K .EQ. 2) THEN 

YDATA(J) = (10 . 0*YTEMP(K-1) )+YTEMP(K) 

ELSEIF (K .EQ. 1) THEN 

YDATA(J) = YTEMP(K) 

ENDIF 

IF (MINUS .EQ. 1) YDATA(J) = O.O-YDATA(J) 

YDATA(J) = ( (YDATA(J)+15 . 0)/100 . )*VOLDIV 
J = J+l 
I - 1+1 
MINUS = 0 

IF (J .EQ. NOPTS) GOTO 120 

K-l 

GOTO 100 

WRITE (*,400) 

FORMAT ('O', 'ENTER DOS FILE NAME TO STORE WAVEFORM DATA IN') 
READ (*,410) FILNAM 
FORMAT (1A12) 

OPEN ( 2, FILE-FILNAM, STATUS- 'NEW' , FORM-' FORMATTED ' ) 

1=1 

K=1 

XDATA =0.0 

IF (NOPTS .EQ. 508) THEN 

WRITE (2,220) XDATA , COMMA , YDATA( I ) 

FORMAT (E10 . 5 , Al , F10 . 3) 

XDATA = (TIMDIV*I)/508.0 
1 = 1+1 
K-K+l 

IF (K .EQ. 5) 1=1+1 

IF (K .EQ. 5) K-l 

IF (I .EQ. 501) GOTO 300 

GOTO 420 

ELSE 

OFFSET = TIMDIV/1016 
DO 500 1=1,1016,3 

XDATA - OFFSET * (1-1) 

WRITE (2,220) XDATA , COMMA , YDATA ( I ) 

CONTINUE 

ENDIF 
CLOSE (2) 

RETURN 

END 



SUBROUTINE SETVOLT 

THIS SETS THE POWER SUPPLY OUTPUT VOLTAGE ***** 
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c 

1 

2 

10 

20 

30 

40 

50 

60 

65 

C 

70 

80 

C 

C 

C* 

c 

1 

2 



CHARACTER*! SVOPT 



CALL CLEAR 
WRITE (*,10) 

WRITE (*,20) 

WRITE (*,30) 

WRITE (*,40) 

WRITE (*,50) 

WRITE (*,60) 

WRITE (*,65) 

FORMAT ('0','*** VOLTAGE SETTING MENU ***' ) 



FORMAT ('0' , '1 VPOS') 

FORMAT ( ' 0 ' , ' 2 VNEG ' ) 

FORMAT ('0' , '3 VLOGIC') 

FORMAT ('O', 'RET RETURN TO POWER SUPPLY MENU') 

FORMAT ('0','X EXIT PROGRAM') 



FORMAT ( '0' ,9X, 'ENTER YOUR SELECTION.') 



READ (*,70) SVOPT 
FORMAT (lAl) 

IF (SVOPT .EQ. '1') THEN 
CALL VPOS 

ELSEIF (SVOPT .EQ. '2') THEN 
CALL VNEG 

ELSEIF (SVOPT .EQ. '3') THEN 
CALL VLOG 

ELSEIF (SVOPT .EQ. ' ') THEN 
RETURN 

ELSEIF (SVOPT .EQ. 'X') THEN 
STOP 

ELSE 

WRITE (*,80) 

FORMAT ('0',' INVALID INPUT, TRY AGAIN') 
GOTO 2 

END IF 
GOTO 1 
END 



SUBROUTINE SETCURRENT 

THIS SETS THE POWER SUPPLY CURRENT LIMITS ***** 
CHARACTER* 1 SCOPT 

CALL CLEAR 
WRITE (*,10) 

WRITE (*,20) 

WRITE (*,30) 

WRITE (*,40) 

WRITE (*,50) 

WRITE (*,60) 

WRITE (*,65) 
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10 


FORMAT ('O', 


'*** CURRENT SETTING MENU ***') 


20 


FORMAT ('O', 


'1 


. . .IPOS' ) 


30 


FORMAT ('O', 


'2 


. . . INEG' ) 


40 


FORMAT ('O', 


'3 


. . . ILOGIC ' ) 


50 


FORMAT ('O', 


'RET. . . 


. . . RETURN TO POWER SUPPLY 


60 


FORMAT ('O', 


'X 


. . .EXIT PROGRAM' ) 


65 

c 


FORMAT ('O', 


9X, 'ENTER YOUR SELECTION. ' ) 


Li 


READ (*,70) 


SCOPT 




70 


FORMAT (1A1) 








IF (SCOPT .EQ. '1') 


THEN 




CALL 


. IPOS 





80 



C 

C 

C ****-; 



ELSEIF (SCOPT . EQ. '2') THEN 
CALL INEG 

ELSEIF (SCOPT .EQ. '3') THEN 
CALL I LOG 

ELSEIF (SCOPT .EQ. ' ') THEN 
RETURN 

ELSEIF (SCOPT .EQ. 'X') THEN 
STOP 

ELSE 

WRITE (*,80) 

FORMAT ('0',' INVALID INPUT, TRY AGAIN') 
GOTO 2 

END IF 
GOTO 1 
END 



SUBROUTINE OUTONOFF 

THIS TOGGLES THE POWER SUPPLY OUTPUTS ***** 
CHARACTER* 1 ANSWER, MSGYES(6), MSGNO(7) 
INTEGER I , J , K, WRT(512) , DVM 



MSGYES (1) 
MSGYES(2) 
MSGYES (3) 
MSGYES (4) 
MSGYES (5) 
MSGYES (6) 



'O' 

'U' 

t f 
t f 

'O' 

'N' 



MSGNO(l) = 'O' 
MSGNO( 2 ) = 'U' 
MSGNO(3 ) = ' T' 
MSGNO (4) « ' ' 
MSGNO ( 5 ) = 'O' 
MSGNO ( 6 ) = 'F' 
MSGNO (7) = 'F' 



DVM = IBFIND ('PS ') 
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c 

1 WRITE (*,10) 

10 FORMAT ('O', 'POWER SUPPLY OUTPUTS ON? ENTER Y OR N. ' ) 

READ (*,20) ANSWER 
20 FORMAT (1A1) 

IF (ANSWER .EQ. 'Y') THEN 

CALL STRING (MSGYES , 6 , WRT) 

CALL IBWRT (DVM,WRT,6) 

ELSEIF (ANSWER .EQ. 'N') THEN 

CALL STRING (MSGNO , 7 , WRT) 

CALL IBWRT (DVM,WRT,7) 

ELSE 

WRITE (*,30) 

30 FORMAT (' 0' ,' INCORRECT INPUT, TRY AGAIN') 

GOTO 1 

END IF 
RETURN 
END 
C 
C 

SUBROUTINE VPOS 

C***** THIS MAKES THE POWER SUPPLY OUTPUT A SPECIFIED POSITIVE VOLTAGE 
CHARACTER* 1 VPOS (9) 

CHARACTER* 1 INPUT (4) 

INTEGER I , J ,K, WRT( 512) ,DVM 
C 

VP0S(1) - 'V' 

VPOS (2) = 'P' 

VPOS (3) - 'O' 

VPOS (4) - 'S' 

VPOS (5) = ' ' 

C 

WRITE (*,10) 

10 FORMAT ('0',' ENTER DESIRED POSITIVE VOLTAGE AS', 

+' X.XX (0-32. OVdc) ' ) 

READ (*,20) INPUT 
20 FORMAT (4Al) 

DO 30 1= 6,9 

K= 1-5 

VPOS(I) - INPUT (K) 

30 CONTINUE 

CALL STRING (VPOS, 9, WRT) 

DVM - IBFIND ( ' PS ' ) 

CALL IBWRT (DVM, WRT, 9) 

RETURN 

END 

C 

C 

SUBROUTINE VNEG 

C***** THIS MAKES THE PS OUTPUT A SPECIFIED NEG VOLTAGE ***** 
CHARACTER*! VNEG (9) 
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CHARACTER* 1 INPUT (4) 

INTEGER I , J ,K,WRT(512) , DVM 
C 

VNEG(l) - 'V' 

VNEG ( 2 ) = 'N' 

VNEG ( 3 ) - 'E' 

VNEG ( 4 ) - 'G' 

VNEG ( 5 ) - ' ' 

C 

WRITE (*,10) 

10 FORMAT ('0',' ENTER DESIRED NEGATIVE VOLTAGE AS', 

+' X.XX (0-32. OVdc') 

READ (*,20) INPUT 
20 FORMAT (4A1) 

DO 30 1= 6,9 

K- 1-5 

VNEG (I) - INPUT (K) 

30 CONTINUE 

CALL STRING (VNEG , 9 , WRT) 

DVM = IBFIND ('PS ') 

CALL IBWRT (DVM, WRT, 9) 

RETURN 

END 

C 

C 

SUBROUTINE VLOG 

C***** THIS MAKES THE PS OUTPUT A SPECFIED LOGIC VOLTAGE ***** 
CHARACTER* 1 VLOG (9) 

CHARACTER* 1 INPUT (4) 

INTEGER I,J ,K,WRT(512) , DVM 
C 

VLOG ( 1 ) = 'V' 

VLOG (2) = 'L' 

VLOG ( 3 ) = 'O' 

VLOG (4) - 'G' 

VLOG ( 5 ) - ’ ' 

C 

WRITE (*,10) 

10 FORMAT ('0',' ENTER DESIRED LOGIC VOLTAGE AS', 

+' X.XX (-4.50 TO 5.50 Vdc ' ) 

READ (*,20) INPUT 
20 FORMAT (4A1) 

DO 30 1= 6,9 

K= 1-5 

VLOG ( I ) = INPUT (K) 

30 CONTINUE 

CALL STRING (VLOG, 9, WRT) 

DVM - IBFIND ('PS ' ) 

CALL IBWRT (DVM, WRT, 9) 

RETURN 

END 
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c 

c 

SUBROUTINE IPOS 

C***** THIS SET THE PS POS CURRENT MAXIMUM ***** 





CHARACTER* 1 IPOS (9) 
CHARACTER* 1 INPUT (4) 
INTEGER I , J , K,WRT(512) ,DVM 






c 


IPOS(l) = 'I' 
IPOS (2) = 'P' 
IPOS (3) - 'O' 
IPOS (4) - 'S' 
IPOS (5) = ' ' 






c 


WRITE (*,10) 






10 


FORMAT ('0',' ENTER DESIRED 


POSITIVE 


CURRENT MAXIMUM ' 


+ ' 


AS X.XX (1 . 60Amax' ) 
READ (*,20) INPUT 






20 


FORMAT (4A1) 
DO 30 I- 6,9 








K= 1-5 

IPOS (I) = INPUT (K) 






30 


CONTINUE 

CALL STRING (IPOS,9,WRT) 
DVM = IBFIND ( ' PS ' ) 
CALL IBWRT (DVM,WRT,9) 
RETURN 
END 






C 








C 


SUBROUTINE INEG 








THIS SETS THE PS NEG CURRENT 


MAXIMUM ***** 




CHARACTER* 1 INEG(9) 
CHARACTERS INPUT (4) 
INTEGER I , J , K , WRT (512) , DVM 






c 


INEG(l) = 'I' 
INEG(2) = 'N' 
INEG(3) = 'E' 
INEG(4) = 'G' 
INEG(5) = ' ' 






c 


WRITE (*,10) 






10 


FORMAT ('0',' ENTER DESIRED 


NEGATIVE 


CURRENT MAXIMUM ' 


+ ' 


AS X.XX (1.60Araax) ') 
READ (*,20) INPUT 






20 


FORMAT (4A1) 
DO 30 1= 6,9 








K= 1-5 

INEG (I) = INPUT (K) 






30 


CONTINUE 
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CALL STRING (INEG,9,WRT) 

DVM = IBFIND ('PS ' ) 

CALL IBWRT (DVM,WRT,9) 

RETURN 

END 

C 

C 

SUBROUTINE ILOG 

Q'kic'k’&'k THIS SETS THE PS LOGIC CURRENT MAXIMUM ***** 

CHARACTER* 1 ILOG(9) 

CHARACTER* 1 INPUT (4) 

INTEGER I ,J ,K,WRT(512) ,DVM 
C 

ILOG(l) = 'I' 

ILOG (2) - 'L' 

ILOG(3) = 'O' 

ILOG (4) = 'G' 

ILOG ( 5 ) - ' ' 

C 

WRITE (*,10) 

10 FORMAT ('0',' ENTER DESIRED LOGIC CURRENT', 

+' MAXIMUM AS X.XX (1.60Amax)') 

READ (*,20) INPUT 
20 FORMAT (4A1) 

DO 30 I- 6,9 

K= 1-5 

ILOG(I) = INPUT (K) 

30 CONTINUE 

CALL STRING (ILOG,9,WRT) 

DVM = IBFIND ( ' PS ' ) 

CALL IBWRT (DVM,WRT,9) 

RETURN 

END 

C 

C 

SUBROUTINE STRING (INPUT, LENGTH, WRT) 
c ■***•■*•* this converts character strings into required FORM FOR IBWRT ** 

CHARACTER* 1 INPUT (30) 

INTEGER LENGTH, I, J,K,WRT(512) 

J= 1 

DO 10 1-1, LENGTH, 2 
K= 1+1 

WRT (J)= ICHAR( INPUT ( I ) ) + ( ICHAR( INPUT (K) ) *256) 

J=> J+l 

10 CONTINUE 

RETURN 
END 
C 
C 

SUBROUTINE FINDER 

C***** THIS HELPS TO FIND GPIB ERRORS ***** 
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COMMON /IBGLOB/ IBSTA , IBERR, IBCNT 
WRITE (*,10) 

10 FORMAT ( ' FIND ERROR ' ) 

RETURN 

END 

C 

c 

SUBROUTINE ERROR 

C***** THIS WRITES THE STATUS, ERROR CODE, AND BYTE COUNT ***** 

COMMON /IBGLOB/ IBSTA, IBERR, IBCNT 
WRITE (*,10) IBSTA, IBERR, IBCNT 
10 FORMAT (' ERROR' ,16,16,16) 

RETURN 

END 

C 

C 

SUBROUTINE CHKSTATUS 

C***** THIS SUBROUTINE CHECKS IBSTA AND WRITES IT TO THE SCREEN. IF AN 
C ***** ERRROR IS FOUND IBSTA, IBERR, AND IBCNT ARE WRITTEN TO THE 
C***** SCREEN. 

C 

WRITE (*,10) IBSTA 
10 FORMAT ('0' , 'IBSTA IS ',16) 

IF (IBSTA .LT. 0) CALL ERROR 
RETURN 
END 
C 

c 

SUBROUTINE FUNCMU 

C***** THIS IS THE SPECIAL FUNCTION MENU DRIVER ****** 

C * - - SOME DECLARATIONS . . . 

C 

CHARACTER*! SELECT 



C 

C 

1 CALL CLEAR 



2 


WRITE ( 


*,10) 






WRITE ( 


*,20) 




C 


WRITE ( 


*,30) 




C 


WRITE ( 


*,40) 






WRITE ( 


*,50) 






WRITE ( 


*,60) 




c 


WRITE ( 


*,65) 




10 


FORMAT 


( ' 0 ' , ' *** 


SPECIAL FUNCTION MENU ***') 


20 


FORMAT 


('0' !'i. . 


BODE PLOT ' ) 


30 


FORMAT 


('0' , '2. . 


BLANK' ) 


40 


FORMAT 


('0' , '3. . 


BLANK' ) 


50 


FORMAT 


( ' 0 ' , ' RET 


RETURN TO MAIN MENU ' ) 


60 


FORMAT 


( '0' , 'X. . 


EXIT PROGRAM') 


65 


FORMAT 


( '0' ,9X, ' 


ENTER YOUR SELECTION. ' ) 
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non 



c 



70 



C 



80 



READ (*,70) SELECT 
FORMAT ( lAl ) 

IF (SELECT .EQ. '1') THEN 
CALL BODE 

ELSEIF (SELECT .EQ. '2') THEN 
CALL BLANK 

ELSEIF (SELECT .EQ. '3') THEN 
CALL BLANK 

ELSEIF (SELECT .EQ. ' ') THEN 
RETURN 

ELSEIF (SELECT .EQ. 'X') THEN 
STOP 

ELSE 

WRITE (*,80) 

FORMAT ('0',' INVALID INPUT, TRY AGAIN') 
GOTO 2 

END IF 
GOTO 2 
END 



C 

C 

SUBROUTINE BODE 

C***** THIS IS THE BODE PLOT DRIVER ***** 

COMMON /IBGLOB/ IBSTA, IBERR, IBCNT 
CHARACTER*! 2 RDDAT(400) 

INTEGER DVM , COUNT ( 400 ) , LENGTH 
CHARACTER*16 FMT 
CHARACTER*14 FLNAME 
C 

CHARACTER* 8 INPUTA , INPUTB 

CHARACTER* 1 FREQ (10) ,TEMP(8) , INPUTC , ACV ( 3 ) 

INTEGER I , J , K, L, STEPS , WRT(512) , TEMPA 

REAL STARTF , STEPF , VALUE, Y( 400) , LASTF , VOLTIN , VIN , DB ( 400 ) ,VOUT 
C 

1-1 

C 

FREQ ( 1 ) - 'F' 

FREQ (10) = 'I' 

C 

C 

CALL CLEAR 
WRITE (*,10) 

10 FORMAT ('O', 'BODE PLOT DATA GENERATOR') 

WRITE (*,20) 

20 FORMAT ('O', 'ENTER STARTING FREQUENCY AS XXX. XEX ( . 01Hz - 12MHz) ' ) 

READ (*,30) INPUTA 
30 FORMAT (1A8) 

WRITE (*,40) 

40 FORMAT ('O', 'ENTER STOPPING FREQUENCY AS XXX. XEX ( . 01Hz-12MHz) ' ) 

READ (*,30) INPUTB 
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WRITE (*,50) 

50 FORMAT ('O', 'ENTER NUMBER OF DATA POINTS TO TAKE (1-400)') 
READ (*,51) STEPS 

51 FORMAT (113) 

WRITE (*,52) 

52 FORMAT ('O', 'ENTER PEAK AMPLITUDE OF INPUT SIGNAL AS X.XX' ) 
READ (*,53) VOLTIN 

53 FORMAT (1F10.3) 

VIN = .707 * VOLTIN 

C 

WRITE (*,55) 

55 FORMAT (' 0 ',' EXECUTING ...' ) 

READ (INPUTA, 65) STARTF 
65 FORMAT (BNF8.0) 

READ (INPUTB ,65) LASTF 
STEPF = (LASTF -STARTF) /STEPS 
C 

READ (INPUTA, 80) TEMP 
80 FORMAT (8Al) 

C 

DVM = IBFIND ( ' DMM ') 

C 

ACV(1)= 'A' 

ACV(2)= 'C' 

ACV(3)= 'V' 

C 

CALL STRING (ACV,3,WRT) 

CALL IBWRT (DVM,WRT,3) 

C 

CALL IBRD ( DVM , RDDAT ( I ) , 12) 

DO 70 1=1, STEPS 

DO 90 J=l,8 

FREQ(J+1)=TEMP(J) 

90 CONTINUE 

DVM = IBFIND ('SIGGEN ') 

CALL STRING (FREQ, 10 ,WRT) 

CALL IBWRT (DVM,WRT,10) 

Y(I) = STARTF 
C 

DVM = IBFIND ('DMM ') 

CALL IBRD ( DVM , RDDAT ( I ) , 12) 

COUNT (I) = IBCNT 
C 

STARTF = STARTF + STEPF 
VALUE = STARTF 
DO 120 K-1,8 

TEMPA = INT ( STARTF/ ( 10** ( 8 -K) ) ) 

TEMP(K) = CHAR (TEMPA + 48) 

STARTF = STARTF - (TEMPA*10** ( 8 -K) ) 

120 CONTINUE 

STARTF = VALUE 
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70 

71 

72 

73 



300 

410 

400 

430 

420 

500 

501 

502 

503 



CONTINUE 
CALL CLEAR 
WRITE (*,71) 

FORMAT ('O', 'ENTER NAME OF FILE YOU WANT DATA STORED IN,') 
WRITE (*,72) 

FORMAT (' ' , 'USE A DOS NAME AS <c : xxxxxxx . yyy> ' ) 

READ (*,73) FLNAME 
FORMAT (1A14) 

OPEN ( 1 , FILE=FLNAME , STATUS= ' NEW ' , FORM= ' FORMATTED ’ ) 

DO 300 1=1, STEPS 

LENGTH = COUNT ( I ) - 3 



IF 


(LENGTH 


.EQ. 


9) 


FMT = ' (F10.2, 


" , " ,1A9) ' 


IF 


(LENGTH 


.EQ. 


8) 


FMT = ' (F10.2, 


" , " , 1A8) ' 


IF 


(LENGTH 


.EQ. 


7) 


FMT = ' (F10.2, 


" , " , 1A7) ' 


IF 


(LENGTH 


.EQ. 6) 


FMT = ' (F10.2, 


" , " , 1A6 ) ' 


IF 


(LENGTH 


.EQ. 


5) 


FMT = ' (F10.2, 


" , " ,1A5) ' 


IF 


(LENGTH 


•EQ. 4) 


FMT = ' (F10. 2, 


" , " ,1A4) ' 


IF 


(LENGTH 


.LE. 3) 


FMT = ' (F10.2, 


" , " , 1A3) ' 



WRITE ( 1 , FMT ) Y ( I ) , RDDAT ( I ) 

CONTINUE 
REWIND 1 

DO 400 1=1, STEPS 

READ (1,410) VOUT 
FORMAT (11X.BNE9.3) 

DB( I ) = 20 * LOG10(VOUT/VIN) 

CONTINUE 
REWIND 1 

DO 420 1=1, STEPS 

WRITE (1,430) Y(I) ,DB(I) 

FORMAT (F10.2, ' , ' ,E12.5) 

CONTINUE 
CLOSE (1) 

WRITE (*,500) FLNAME 

FORMAT ('O', 1A16 , ' NOW CONTAINS YOUR BODE PLOT DATA.') 

WRITE (*,501) 

FORMAT (' ',' COLUMN 1 IS THE FREQUENCY DATA, COLUMN 2 IS THE') 
WRITE (*,502) 

FORMAT (' ' , ' GAIN IN DECIBELS. THE INPUT VOLTAGE IS ASSUMED') 

WRITE (*,503) 

FORMAT (' ' ,'TO BE CONSTANT OVER THE FREQUENCIES SWEPT.') 

RETURN 

END 
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